home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / b / b.lha / B / src / bint / b0fil.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-11-24  |  1.1 KB  |  43 lines
  1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  2.  
  3. /*
  4.   $Header: b0fil.c,v 1.4 85/08/22 16:48:05 timo Exp $
  5. */
  6.  
  7. /* Built-in file names.  Some can be overridden by environment variables. */
  8. /* Only recompilation of this file is necessary when a name is changed.   */
  9.  
  10. #include "b.h"
  11. #include "b0fil.h"
  12.  
  13. #ifdef IBMPC
  14. Visible char *bpermfile= "PERM.BIF";
  15. Visible char *tempfile= "TEMP.BIF";
  16. Visible char *messfile= "\\MESSAGES.BIF";
  17. #else
  18. Visible char *bpermfile= ".b_perm";
  19. Visible char *tempfile= ".@b_temp";
  20. Visible char *messfile= "/usr/local/lib/B/Messages";
  21. #endif
  22.  
  23. #ifndef INTEGRATION
  24. #ifndef BED
  25. #define BED "/usr/local/lib/B/bed +" /* Trailing + if '+lineno' arg. */
  26. #endif
  27. Visible char *editorfile= BED;
  28. #endif
  29.  
  30. Hidden char *setdefault(envname, deflt) char *envname, *deflt; {
  31.     char *p= getenv(envname);
  32.     if (p != NULL && p[0] != '\0') return p;
  33.     return deflt;
  34. }
  35.  
  36. Visible Procedure set_file_names() {
  37.     messfile= setdefault("B_MESSAGES", messfile);
  38. #ifndef INTEGRATION
  39.     editorfile= setdefault("B_EDITOR", setdefault("BEDITOR", editorfile));
  40.     /* BEDITOR used to be the name; officially it's now B_EDITOR */
  41. #endif
  42. }
  43.